EnableExplicit
XIncludeFile "TabBarGadget.pbi"
Enumeration
#Window
#GadgetTop
#GadgetLeft
#GadgetRight
#GadgetBottom
EndEnumeration
Define Attributes.i = #TabBarGadget_CloseButton|#TabBarGadget_BottomLine
OpenWindow(#Window, 0, 0, 600, 600, "TabBarGadget", #PB_Window_MinimizeGadget|#PB_Window_ScreenCentered)
TabBarGadget(#GadgetTop, 35, 10, WindowWidth(#Window)-70, 25, Attributes, #Window)
AddTabBarGadgetItem(#GadgetTop, #PB_Default, "This is an")
AddTabBarGadgetItem(#GadgetTop, #PB_Default, "example for")
AddTabBarGadgetItem(#GadgetTop, #PB_Default, "tab bar on")
AddTabBarGadgetItem(#GadgetTop, #PB_Default, "the top")
TabBarGadget(#GadgetLeft, 10, 35, 25, WindowHeight(#Window)-70, Attributes|#TabBarGadget_Vertical, #Window)
AddTabBarGadgetItem(#GadgetLeft, #PB_Default, "This is an")
AddTabBarGadgetItem(#GadgetLeft, #PB_Default, "example for")
AddTabBarGadgetItem(#GadgetLeft, #PB_Default, "a vertical")
AddTabBarGadgetItem(#GadgetLeft, #PB_Default, "tab bar on")
AddTabBarGadgetItem(#GadgetLeft, #PB_Default, "left hand side")
TabBarGadget(#GadgetRight, 565, 35, 25, WindowHeight(#Window)-70, Attributes|#TabBarGadget_Vertical|#TabBarGadget_MirroredTabs, #Window)
AddTabBarGadgetItem(#GadgetRight, #PB_Default, "This is an")
AddTabBarGadgetItem(#GadgetRight, #PB_Default, "example for")
AddTabBarGadgetItem(#GadgetRight, #PB_Default, "a vertical mirrored")
AddTabBarGadgetItem(#GadgetRight, #PB_Default, "tab bar on")
AddTabBarGadgetItem(#GadgetRight, #PB_Default, "right hand side")
TabBarGadget(#GadgetBottom, 35, 565, WindowWidth(#Window)-70, 25, Attributes|#TabBarGadget_MirroredTabs, #Window)
AddTabBarGadgetItem(#GadgetBottom, #PB_Default, "This is an")
AddTabBarGadgetItem(#GadgetBottom, #PB_Default, "example for")
AddTabBarGadgetItem(#GadgetBottom, #PB_Default, "a mirrored")
AddTabBarGadgetItem(#GadgetBottom, #PB_Default, "tab bar on")
AddTabBarGadgetItem(#GadgetBottom, #PB_Default, "the bottom")
Repeat
Select WaitWindowEvent()
Case #PB_Event_CloseWindow
End
Case #PB_Event_Gadget
Select EventGadget()
Case #GadgetTop, #GadgetLeft, #GadgetRight, #GadgetBottom
Select EventType()
Case #TabBarGadget_EventType_CloseItem
RemoveTabBarGadgetItem(EventGadget(), #TabBarGadgetItem_Event)
EndSelect
EndSelect
EndSelect
ForEver